home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / Adobe PageMaker 6.0 / Utilities / Update PPD 1.7 / Update PPD 1.7.rsrc / TEXT_1_APU.dct - US On_Max On_Euro Off.txt < prev    next >
Text File  |  1995-07-13  |  6KB  |  275 lines
  1. {
  2.  
  3. %!PS-Adobe-3.0 Query
  4. %%Title:    Adobe PPD Customization Tool
  5. %%Copyright 1992-1995 Adobe Systems Incorporated.
  6. %%+    411 First Avenue South, Seattle, WA 98104-2871.
  7. %%+    All rights reserved.
  8. %%Version: 1.0.1
  9. %%CreationDate: 1/5/94
  10. %%CreationTime: 12:00 PM - PST
  11. %%DocumentSuppliedResources: procset APU.dct 1.7
  12. %%EndComments
  13. %%BeginProlog
  14. %%BeginResource: APU.dct 1.7
  15. %%VMlocation: local
  16. %%VMusage: 15000 15000
  17. /APU.dct 75 dict def APU.dct begin
  18.  
  19. % ------------------------------------------------------------
  20.  
  21. /Threshold 500000 def
  22. /Reserve .95 def
  23.  
  24. /Boundary 7200 def
  25.  
  26. % true = on
  27. % false = off
  28.  
  29. /DoFonts true def
  30.    /AllFonts false def
  31.    /FontTest true def
  32.  
  33. /DoPapers true def
  34.    /MUnit 72 def
  35.    /MaxPage true def
  36.    /ISO_JISA false def
  37.    /ISOB false def
  38.    /ISOC false def
  39.    /JISB false def
  40.    /US true def
  41.    /UserPapers true def
  42.  
  43. % ------------------------------------------------------------
  44.  
  45. /DictVersion (1.7) def
  46. /dictSize 15000 def
  47. /bdef{bind def}bind def
  48. /xstr{exch store}bdef
  49. /R 253 string def
  50. /C 0 def
  51. /VP false def
  52. /PP (unknown device) def
  53. /F 64 string def
  54. /E 32 string def
  55. /V 64 string def
  56. /CS 32 string def
  57. /S 8 string def
  58. /FVM 32 string def
  59. /M{dup length C add/C xstr putinterval R}bdef
  60. /FC 0 def
  61. /RS{/R 253 string store/C 0 store/F 64 string store/V 64 string store/CS 32 string store  /FontTest true def}bdef
  62. /D{print (\r) print flush/Data 1 store}bdef
  63. /POST{0 C getinterval D RS}bdef
  64. /GoPapers    false def
  65. /Measure {MUnit div} def
  66. /ContinuePapers false def
  67. /initBounds{/Max Boundary store/Min 432 store}bdef
  68. /DS    3 def
  69. /Min    432 def
  70. /Max    7200 def
  71. /Mid{Min dup Max gt {Min Max}{Max Min}ifelse sub .5 mul add}bdef
  72. /X    1 def
  73. /Y    1 def
  74. /Offset    0 def
  75. /Orientation    1 def
  76. /MA .2 def
  77. /setX{/X xstr}bdef
  78. /setY{/Y xstr}bdef
  79. /X+{APU.dct/Min X put}bdef
  80. /X-{APU.dct/Max X put}bdef
  81. /DoY false def
  82. /Y+{APU.dct/Min Y put}bdef
  83. /Y-{APU.dct/Max Y put}bdef
  84. /testPage{X Y Orientation setpage}bdef
  85. /paperStyle{Y le exch X le and{D}{pop}ifelse}bdef
  86. /findPapers{
  87. mark
  88. statusdict dup/setpage known
  89. {
  90.     begin % statusdict
  91.     /DS countdictstack store % begin initialization
  92.     initBounds
  93.     Min setY
  94.     {
  95.     Mid setX
  96.     mark
  97.     {testPage}stopped
  98.     {X-}{X+}ifelse
  99.     cleartomark
  100.     countdictstack DS sub{end}repeat
  101.     Min Max MA sub ge{exit}if
  102.     }loop
  103.     Min setX
  104.     initBounds
  105.     {
  106.     Mid setY
  107.     mark
  108.     {testPage}stopped
  109.     {Y-}{Y+}ifelse
  110.     cleartomark
  111.     countdictstack DS sub{end}repeat
  112.     Min Max MA sub ge{exit}if
  113.     }loop
  114.     end
  115.     /GoPapers true store
  116. }
  117. {pop/GoPapers false store}ifelse
  118. cleartomark
  119. }bdef
  120. /LoopCount 0 def
  121. /Cluster 25 def
  122. /ClusterCount 0 def
  123. /ClusterCount++{/ClusterCount ClusterCount 1 add store}def
  124. /LoopIn 0 def
  125. /LoopOut 0 def
  126. /LoopCount++{/LoopCount LoopCount 1 add store}def
  127. /LoopIn++{/LoopIn LoopOut store}def
  128. /GetString{dup length 6 sub 6 exch getinterval}bdef
  129. /GetFont{dup /F xstr cvn {findfont}stopped{pop (Courier) cvn findfont /FontTest false def}if}bdef
  130. /CheckFont
  131. {
  132.     dup dup mark 3 1 roll
  133.     /E (Special) store
  134.     /Encoding known
  135.     {
  136.     {/Encoding get}stopped not{{dup dup 248 get exch 208 get exch}stopped not}if
  137.     {
  138.         2 copy/lslash eq exch/emdash eq and{/E (Standard) store}if
  139.         2 copy/oslash eq exch/Eth eq and{/E (ISOLatin1) store}if
  140.         2 copy/Oslashsmall eq exch/eightsuperior eq and{/E (Expert) store}if
  141.         2 copy/.notdef eq exch/eightsuperior eq and{/E (ExpertSubset) store}if
  142.     }if
  143.     }if
  144.     cleartomark
  145.     dup dup mark 3 1 roll
  146.     /CS (Special) store
  147.     /CharStrings known
  148.     {
  149.     {/CharStrings get}stopped not
  150.     {
  151.         {
  152.         dup dup/lslash known exch/oslash known not and{/CS (OldStandard) store stop}if
  153.         dup dup/lslash known exch/oslash known and{/CS (Standard) store stop}if
  154.         dup dup/lslash known not exch/oslash known and{/CS (ISOLatin) store stop}if
  155.         dup dup/eightsuperior known exch/exclamsmall known and{/CS (Expert) store stop}if
  156.         dup dup/eightsuperior known exch/exclamsmall known not and{/CS (ExpertSubset) store stop}if
  157.         }stopped not{/CS (Special) store}if
  158.     }if
  159.     }if
  160.     cleartomark
  161.     dup dup mark 3 1 roll
  162.     /V () store
  163.     /FontInfo known 
  164.     {
  165.     {/FontInfo get}stopped not
  166.     {
  167.         dup/version known
  168.         {
  169.             {/version get}stopped not
  170.             {
  171.                 (/) search{pop pop pop}{/V xstr}ifelse
  172.             }if
  173.         }if
  174.     }if
  175.     }if
  176.     cleartomark
  177.     % /S (Disk) store
  178.     cleartomark
  179.     FontTest true eq
  180.     {R C (*Font ) M C F M C (\: ) M C E M C ( "\() M C V M C (\)" ) M C CS M C ( ) M C S M POST}
  181.     {R C (%% ) M C F M C (\: ) M C () M C () M POST}
  182.     ifelse
  183. }def
  184. /CheckFontPlain
  185. {
  186.     dup dup mark 3 1 roll
  187.     /E (Standard) store
  188.     cleartomark
  189.     dup dup mark 3 1 roll
  190.     /CS (Standard) store
  191.     cleartomark
  192.     dup dup mark 3 1 roll
  193.     /V () store
  194.     cleartomark
  195.     % /S (Disk) store
  196.     cleartomark
  197.     R C (*Font ) M C F M C (\: ) M C E M C ( "\() M C V M C (\)" ) M C CS M C ( ) M C S M POST
  198. }def
  199. /CatalogRAM
  200. {
  201. /S (ROM) store
  202. save exch
  203. mark exch
  204. GetFont
  205. CheckFont
  206. restore
  207. }def
  208. /Catalog
  209. {
  210. /S (Disk) store
  211. /filenameforall where 
  212. {pop mark
  213. /LoopCount 0 store
  214. /LoopOut LoopIn Cluster add dup FC gt{pop FC}if store
  215. (fonts/*)
  216. {
  217. LoopCount LoopIn ge LoopCount LoopOut lt and
  218.     {
  219.     save exch
  220.     mark exch
  221.     GetString
  222.     GetFont
  223.     CheckFont
  224.     restore
  225.     ClusterCount++
  226.     }
  227.     {pop}
  228.     ifelse
  229. LoopCount++
  230. }
  231. F
  232. filenameforall
  233. LoopIn++
  234. cleartomark
  235. }if
  236. }def
  237. /CatalogPlain
  238. {
  239. /S (Disk) store
  240. /filenameforall where 
  241. {pop mark
  242. /LoopCount 0 store
  243. /LoopOut LoopIn Cluster add dup FC gt{pop FC}if store
  244. (fonts/*)
  245. {
  246. LoopCount LoopIn ge LoopCount LoopOut lt and
  247.     {
  248.     save exch
  249.     mark exch
  250.     GetString
  251.     GetFont
  252.     CheckFontPlain
  253.     restore
  254.     ClusterCount++
  255.     }
  256.     {pop}
  257.     ifelse
  258. LoopCount++
  259. }
  260. F
  261. filenameforall
  262. LoopIn++
  263. cleartomark
  264. }if
  265. }def
  266. end % APU.dct
  267. %%EndResource
  268. %%EndProlog
  269. %%BeginSetup
  270. APU.dct begin
  271. %%EndSetup
  272.  
  273. }
  274. stopped{(??? 0 -1) D quit}{(??? 0 10) D}ifelse
  275.